#Load data
wd<-"C:/Users/MUNTEANU_A/Dropbox/Research/2018 JMP/"
wd_data_raw<-paste0(wd,'data/raw/')
wd_data_raw_other<-paste0(wd,'data/raw/other/')
wd_data_intermediate<-paste0(wd,'data/intermediate/')
wd_data_final<-paste0(wd,'data/final/')
wd_code<-paste0(wd,'code/')


pacman::p_load(tidyr,dplyr,openxlsx)
years<-2021:2008

setwd(wd_code)
setwd('./Student Teacher Expenditures/')
source('read_student_data_old.R')
source('read_teacher_data.R')
source('read_expenditure_data.R')
 
data_student<-read_student_data(years)
data_teacher<-read_teacher_data()
data_expenditure<-read_expenditure_data()

setwd(wd_code)
setwd('./Student Teacher Expenditures/')
source('merge_student_teacher_all_categories_v4_year_and_teacher_q_by_subject_4_year.R')
source('merge_student_expenditure.R')
source('merge_student_teacher__expenditure.R')
data_student_teacher<-merge_student_teacher()
data_student_expenditure<-merge_student_expenditure()
data_student_teacher_expenditure<-merge_student_teacher__expenditure()

  